; Music Of Operation Thunderbolt (1989) (Ocean Software) (Jonathan Dunn)
; Ripped by Megachur the 11/11/2006

	write "OPERATIT.BIN"

music_date_rip	equ &0bb6
music_adr	equ &0d6b
first_theme	equ 0
last_theme	equ 2

	read "music_header_v1_0.asm"
;
; test play !
;
;	call l0d79
;.l0d6e
;	ei
;	halt
;	ld a,(l141b)
;	or a
;	jr nz,l0d6e
;	jp l0f33
;
.init_music
.l0d79
;
	di
;	ld hl,#ffb0
;	ld (#0039),hl
	ld hl,l141b
	ld (hl),#00
	inc hl
	ld (hl),#00
	ld c,a
	add a
	add c
	add a
	add c
	ld c,a
	ld b,#00
	ld hl,l160a
	add hl,bc
	ld a,(hl)
	ld (l0e7d),a
	inc hl
	ld ix,l0ddb
	ld c,#27
	ld a,#03
.l0da1
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (ix+#20),#00
	ld (ix+#21),#00
	ld (ix+#10),#01
	ld (ix+#00),b
	ld (ix+#1d),b
	ld (ix+#1f),b
	ld (ix+#03),e
	ld (ix+#04),d
	ld (ix+#05),e
	ld (ix+#06),d
	ld (ix+#25),#01
	add ix,bc
	dec a
	jr nz,l0da1
	ld (l110b),a
	inc a
	ld (l0e50),a
	ld (l141b),a
	ei
	ret
.l0ddb
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#09
.l0e02
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#12
.l0e29
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#24
.l0e50
	db #00
;
.play_music	;l0e51
;
	call l1478
	ld a,(l141b)
	and a
	jp z,l0ead
.l0e5c equ $ + 1
	ld a,#00
	ld (l0ea9),a
	ld hl,l0e50
	dec (hl)
	jr nz,l0e81
	ld b,(hl)
	ld ix,l0ddb
	call l1003
	ld ix,l0e02
	call l1003
	ld ix,l0e29
	call l1003
.l0e7d equ $ + 1
	ld a,#01
	ld (l0e50),a
.l0e81
	ld ix,l0ddb
	call l10d8
	ld (l11e9),hl
	ld (l11f1),a
	ld ix,l0e02
	call l10d8
	ld (l11eb),hl
	ld (l11f2),a
	ld ix,l0e29
	call l10d8
	ld (l11ed),hl
	ld (l11f3),a
.l0ea9 equ $ + 1
	ld a,#00
	ld (l11ef),a
.l0ead
	ld a,(l141c)
	and a
	jr z,l0edd
	ld hl,(l11f6)
	ld (l11e9),hl
	ld hl,(l11fa)
	ld (l11ed),hl
	ld a,(l11fc)
	ld (l11ef),a
	ld a,(l11f0)
	or #2d
	ld hl,l11fd
	and (hl)
	ld (l11f0),a
	ld a,(l11fe)
	ld (l11f1),a
	ld a,(l1200)
	ld (l11f3),a
.l0edd
	ld a,(l141b)
.l0ee2 equ $ + 2
	ld hl,l141c
	or (hl)
	ret z
	ld hl,l11f4
	ld d,#0b
.l0eea
	ld e,(hl)
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ld a,#c0
	out (c),a
	out (c),c
	ld b,#f4
	out (c),e
	ld b,#f6
	add a
	out (c),a
	out (c),c
	dec hl
	dec d
	jp p,l0eea
	ret
.l0f0b
	ld de,#0d00
.l0f0e
	call l0f18
	dec d
	jp p,l0f0e
	ld de,#0000
.l0f18
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ld a,#c0
	out (c),a
	out (c),c
	ld b,#f4
	out (c),e
	ld b,#f6
	add a
	out (c),a
	out (c),c
	ret
.l0f33
	push af
	push bc
	push de
	push hl
	push ix
	call l0f49
	defs 3,0	;ld hl,#ffd1
	defs 3,0	;ld (#0039),hl
	pop ix
	pop hl
	pop de
	pop bc
	pop af
	ret
;
.stop_music
.l0f49
;
	xor a
	ld (l141b),a
	ld (l141c),a
	call l0f0b
	xor a
	ld (l11f1),a
	ld (l11f2),a
	ld (l11f3),a
	cpl
	ld (l875f),a
	ret
	db #7c
	db #6a
	db #6e
	db #73
	db #51
	db #66
	db #65
	db #11
	db #54
	db #4c
	db #26
	db #10
	db #38
	db #6f
	db #06
	db #76
	db #75
	db #7a
	db #7e
	db #83
	pop hl
	jp l0f33
	jp l1398
	ld a,(ix+#26)
	ld c,a
	and #07
	ld hl,l11b4
	xor (hl)
	and c
	xor (hl)
	ld (hl),a
	ld a,#01
	ld (ix+#1e),a
	jp l1018
	ld a,(ix+#26)
	ld c,a
	and #38
	ld hl,l11b4
	xor (hl)
	and c
	xor (hl)
	ld (hl),a
	xor a
	ld (ix+#1e),a
	jp l1018
	ld hl,l11b4
	ld a,(ix+#26)
	cpl
	and (hl)
	ld (hl),a
	ld a,#01
	ld (ix+#1e),a
	jp l1018
	ld a,(de)
	inc de
	ld (l110b),a
	jr l1018
	ld a,(de)
	ld (ix+#1b),a
	inc de
	ld a,(de)
	ld (ix+#1a),a
	inc de
	ld (ix+#1c),a
	jr l1018
	ld (ix+#1d),b
	jr l1018
	ld (ix+#1d),#40
	jr l1018
	ld (ix+#1d),#c0
	jr l1018
	ld (ix+#13),b
	res 5,(ix+#00)
	jr l1056
	ld (ix+#1f),#ff
	jr l1018
	ld (ix+#1f),b
	jr l1018
	ld (ix+#24),#01
	jr l1018
	ld a,(de)
	inc de
	ld (ix+#11),a
	ld (ix+#24),#00
	jr l1018
.l1003
	dec (ix+#10)
	jr nz,l107d
	ld (ix+#00),b
	ld a,(ix+#25)
	or a
	jp nz,l1398
	ld e,(ix+#01)
	ld d,(ix+#02)
.l1018
	ld a,(de)
	inc de
	and a
	jp m,l108e
	add (ix+#20)
	ld (ix+#12),a
	bit 0,(ix+#1e)
	jr z,l102d
	ld (l0e5c),a
.l102d
	ld l,(ix+#09)
	ld h,(ix+#0a)
	ld (ix+#0b),l
	ld (ix+#0c),h
	ld l,(ix+#14)
	ld (ix+#16),l
	ld h,(ix+#15)
	ld (ix+#17),h
	ld a,(hl)
	ld (ix+#18),a
	ld (ix+#13),a
	ld a,(ix+#0f)
	ld (ix+#19),a
	set 5,(ix+#00)
.l1056
	ld a,(ix+#24)
	or a
	jr z,l1060
	ld a,(de)
	inc de
	jr l1063
.l1060
	ld a,(ix+#11)
.l1063
	ld (ix+#10),a
	ld (ix+#02),d
	ld (ix+#01),e
	ld a,(ix+#1f)
	and a
	jr z,l107c
	ld a,(l141c)
	and a
	jr nz,l107c
	ld (ix+#1f),#ff
.l107c
	ret
.l107d
	ld a,(ix+#00)
	bit 3,a
	ret z
	rla
	jr nc,l108a
	inc (ix+#12)
	ret
.l108a
	dec (ix+#12)
	ret
.l108e
	cp #b0
	jr c,l10d0
	add #30
	jr c,l10b8
	add #18
	jr nc,l10b0
	ld c,a
	ld hl,l12c2
	add hl,bc
	ld c,(hl)
	add hl,bc
	ld (ix+#0b),l
	ld (ix+#09),l
	ld (ix+#0c),h
	ld (ix+#0a),h
	jp l1018
.l10b0
	add #09
	ld (l0e7d),a
	jp l1018
.l10b8
	ld hl,l12d5
	add a
	ld c,a
	add hl,bc
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	ld (ix+#14),l
	ld (ix+#15),h
	dec hl
	ld a,(hl)
	ld (ix+#0f),a
	jp l1018
.l10d0
	ld hl,l0ee2
	ld c,a
	add hl,bc
	ld c,(hl)
	add hl,bc
	jp (hl)
.l10d8
	ld c,(ix+#00)
	bit 5,c
	jr z,l110a
	ld a,(ix+#19)
	sub #01
	ld (ix+#19),a
	jr nc,l1104
	ld a,(ix+#0f)
	ld (ix+#19),a
	ld l,(ix+#16)
	ld h,(ix+#17)
	inc hl
	ld a,(hl)
	and a
	jp m,l1104
	ld (ix+#16),l
	ld (ix+#17),h
	ld (ix+#18),a
.l1104
	ld a,(ix+#18)
	ld (ix+#13),a
.l110b equ $ + 1
.l110a
	ld a,#00
	add (ix+#12)
	ld b,a
	ld l,(ix+#0b)
	ld h,(ix+#0c)
	ld a,(hl)
	inc hl
	and a
	jp p,l1124
	ld l,(ix+#09)
	ld h,(ix+#0a)
	and #7f
.l1124
	ld (ix+#0b),l
	ld (ix+#0c),h
	add b
	ld hl,l1202
	ld d,#00
	add a
	ld e,a
	add hl,de
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld l,(ix+#1d)
	bit 6,l
	jr z,l1185
	ld h,a
	ld b,(ix+#1a)
	sla b
	bit 7,l
	ld a,(ix+#1c)
	jr z,l114e
	bit 0,c
	jr nz,l116c
.l114e
	bit 5,l
	jr nz,l115e
	sub (ix+#1b)
	jr nc,l1169
	set 5,(ix+#1d)
	sub a
	jr l1169
.l115e
	add (ix+#1b)
	cp b
	jr c,l1169
	res 5,(ix+#1d)
	ld a,b
.l1169
	ld (ix+#1c),a
.l116c
	ex de,hl
	srl b
	sub b
	ld e,a
	ld a,d
	ld d,#00
	jr nc,l1177
	dec d
.l1177
	add #a0
	jr c,l1183
.l117b
	sla e
	rl d
	add #18
	jr nc,l117b
.l1183
	add hl,de
	ex de,hl
.l1185
	ld a,c
	xor #01
	ld (ix+#00),a
	bit 2,c
	jr z,l11b0
	ld b,(ix+#0e)
	djnz l11ad
	ld c,(ix+#0d)
	bit 7,c
	jr z,l119c
	dec b
.l119c
	ld l,(ix+#07)
	ld h,(ix+#08)
	add hl,bc
	ld (ix+#07),l
	ld (ix+#08),h
	add hl,de
	ex de,hl
	jr l11b0
.l11ad
	ld (ix+#0e),b
.l11b0
	cpl
	and #03
.l11b4 equ $ + 1
	ld a,#00
	jr nz,l11c1
	ld a,(l0e5c)
	xor #08
	ld (l0ea9),a
	ld a,#07
.l11c1
	ld hl,l11f0
	xor (hl)
	and (ix+#26)
	xor (hl)
	ld (hl),a
	ld a,(ix+#1f)
	and a
	jp p,l11e4
	and #7f
	ld (ix+#1f),a
	ld a,(ix+#26)
	and #38
	xor #ff
	and (hl)
	ld (hl),a
	ld a,#41
	ld (l0ea9),a
.l11e4
	ex de,hl
	ld a,(ix+#13)
	ret
.l11f0 equ $ + 7
.l11ef equ $ + 6
.l11ed equ $ + 4
.l11eb equ $ + 2
.l11e9
	db #00,#00,#00,#00,#00,#00,#00,#3f
.l11f7 equ $ + 6
.l11f6 equ $ + 5
.l11f4 equ $ + 3
.l11f3 equ $ + 2
.l11f2 equ $ + 1
.l11f1
	db #0f,#0f,#0f,#00,#00,#00,#00,#00
.l1200 equ $ + 7
.l11fe equ $ + 5
.l11fd equ $ + 4
.l11fc equ $ + 3
.l11fa equ $ + 1
	db #00,#00,#00,#00,#3f,#10,#00,#10
	db #00
.l1202
	dw #0ef8,#0e10,#0d60,#0c80
	dw #0bd8,#0b28,#0a88,#09f0
	dw #0960,#08e0,#0858,#07e0
	dw #077c,#0708,#06b0,#0640
	dw #05ec,#0594,#0544,#04f8
	dw #04b0,#0470,#042c,#03f0
	dw #03be,#0384,#0358,#0320
	dw #02f6,#02ca,#02a2,#027c
	dw #0258,#0238,#0216,#01f8
	dw #01df,#01c2,#01ac,#0190
	dw #017b,#0165,#0151,#013e
	dw #012c,#011c,#010b,#00fc
	dw #00ef,#00e1,#00d6,#00c8
	dw #00bd,#00b2,#00a8,#009f
	dw #0096,#008e,#0085,#007e
	dw #0077,#0070,#006b,#0064
	dw #005e,#0059,#0054,#004f
	dw #004b,#0047,#0042,#003f
	dw #003b,#0038,#0035,#0032
	dw #002f,#002c,#002a,#0027
	dw #0025,#0023,#0021,#001f
	dw #001d,#001c,#001a,#0019
	dw #0017,#0016,#0015,#0013
	dw #0012,#0011,#0010,#000f
.l12c2
	db #05,#05,#06,#07,#09,#80,#00,#8c
	db #00,#87,#00,#04,#87,#00,#05,#89
	db #00,#03,#87
.l12d5
	dw l12e4,l12ef,l12f9,l1304
	dw l131f,l1335,l1365
.l12e4 equ $ + 1
	db #02,#0f,#0b,#0a,#08,#06,#04,#02
	db #01,#00,#87
.l12ef equ $ + 1
	db #02,#0b,#0a,#08,#06,#04,#02,#01
	db #00,#87
.l12f9 equ $ + 1
	db #02,#0c,#0a,#08,#06,#04,#03,#03
	db #03,#03,#87
.l1304 equ $ + 1
	db #08,#0f,#0e,#0d,#0c,#0a,#09,#08
	db #07,#06,#07,#06,#05,#06,#05,#04
	db #05,#04,#03,#04,#03,#02,#03,#02
	db #01,#00,#87
.l131f equ $ + 1
	db #04,#00,#01,#02,#03,#04,#05,#06
	db #07,#08,#09,#0a,#0b,#0c,#0d,#0e
	db #0f,#0f,#0f,#0f,#0f,#87
.l1335 equ $ + 1
	db #02,#0f,#0f,#0f,#0e,#0e,#0e,#0d
	db #0d,#0d,#0c,#0c,#0c,#0b,#0b,#0b
	db #0a,#0a,#0a,#09,#09,#09,#08,#08
	db #08,#07,#07,#07,#06,#06,#06,#05
	db #05,#05,#04,#04,#04,#03,#03,#03
	db #02,#02,#02,#01,#01,#01,#00,#87
.l1365 equ $ + 1
	db #00,#06,#08,#0a,#0c,#0f,#0f,#0f
	db #0e,#0e,#0e,#0d,#0d,#0d,#0c,#0c
	db #0c,#0b,#0b,#0b,#0a,#0a,#0a,#09
	db #09,#09,#08,#08,#08,#07,#07,#07
	db #06,#06,#06,#05,#05,#05,#04,#04
	db #04,#03,#03,#03,#02,#02,#02,#01
	db #01,#01,#00,#87
.l1398
	xor a
	ld (ix+#25),a
	ld l,(ix+#03)
	ld h,(ix+#04)
.l13a2
	ld a,(ix+#21)
	or a
	jp z,l13be
	dec a
	ld (ix+#21),a
	jp z,l13c2
	ld l,(ix+#22)
	ld h,(ix+#23)
	ld (ix+#03),l
	ld (ix+#04),h
	jr l13c2
.l13be
	ld (ix+#20),#00
.l13c2
	ld a,(hl)
	inc hl
	or a
	jp m,l13e5
	ld (ix+#03),l
	ld (ix+#04),h
	add a
	ld e,a
	ld d,#00
	ld hl,l161f
	add hl,de
	ld a,(hl)
	ld e,a
	inc hl
	ld d,(hl)
	ld (ix+#01),e
	ld (ix+#02),d
	ld b,#00
	jp l1018
.l13e5
	cp #fd
	jr z,l1412
	cp #ff
	jr z,l140a
	cp #fe
	jr z,l13fc
	cp #fc
	jr z,l13f5
.l13f5
	ld a,(hl)
	inc hl
	ld h,(hl)
	ld l,a
	jp l13c2
.l13fc
	ld a,(hl)
	inc hl
	ld (ix+#21),a
	ld (ix+#22),l
	ld (ix+#23),h
	jp l13c2
.l140a
	ld a,(hl)
	inc hl
	ld (ix+#20),a
	jp l13c2
.l1412
	ld l,(ix+#05)
	ld h,(ix+#06)
	jp l13a2
.l141b
.music_end
	db #00
.l141c
	db #00
;
; sound fx
;
	ld hl,l141c
	ld b,a
	ld a,(l875f)
	cp b
	ret c
	ld a,b
	ld (hl),#00
	ld (l875f),a
	ld hl,l151a
	add a
	add l
	ld l,a
	jr nc,l1435
	inc h
.l1435
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld b,#11
	ld hl,l15d8
.l143d
	ld a,(de)
	ld (hl),a
	inc hl
	inc de
	djnz l143d
	ld a,(l15d9)
	ld (l15e9),a
	ld hl,(l15da)
	ld (l11f6),hl
	ld de,(l15dc)
	ld (l11fa),de
	ld a,l
	ld (l11fc),a
	ld a,(l15df)
	ld (l11fd),a
	ld a,(l15de)
	ld e,a
	ld d,#0c
	call l0f18
	ld a,(l15e8)
	ld e,a
	ld d,#0d
	call l0f18
	ld hl,l141c
	inc (hl)
	ret
.l1478
	call l15eb
	ld a,(l141c)
	and a
	ret z
	ld a,(l15d8)
	and a
	jr nz,l1490
	ld (l141c),a
	cpl
	ld (l875f),a
	jp l0f0b
.l1490
	dec a
	ld (l15d8),a
	ld a,(l15e9)
	and a
	jr nz,l14c9
	ld a,(l15e6)
	and a
	ret z
	dec a
	ld (l15e6),a
	ld a,(l15d9)
	ld (l15e9),a
	ld a,(l15e7)
	and a
	jr z,l14b2
	ld a,(l1606)
.l14b2
	ld b,a
	ld a,(l15da)
	add b
	ld (l11f6),a
	ld a,(l15db)
	add b
	and #0f
	ld (l11f7),a
	ld hl,(l15dc)
	ld (l11fa),hl
.l14c9
	ld hl,l15e9
	dec (hl)
	ld a,(l15e4)
	and a
	jr z,l14f0
	jp p,l14e3
	ld hl,(l11f6)
	ld de,(l15e0)
	add hl,de
	ld (l11f6),hl
	jr l14f0
.l14e3
	ld hl,(l11f6)
	ld de,(l15e0)
	and a
	sbc hl,de
	ld (l11f6),hl
.l14f0
	ld a,(l15e5)
	and a
	jr z,l1513
	jp p,l1506
	ld hl,(l11fa)
	ld de,(l15e2)
	add hl,de
	ld (l11fa),hl
	jr l1513
.l1506
	ld hl,(l11fa)
	ld de,(l15e2)
	and a
	sbc hl,de
	ld (l11fa),hl
.l1513
	ld a,(l11f6)
	ld (l11fc),a
	ret
.l151a
	dw l1550,l1561,l15b6,l153f
	dw l1572,l1583,l1594,l15a5
	dw l15c7,l152e
.l152e
	db #05,#05,#10,#00,#00,#04,#0a,#f6
	db #30,#00,#20,#00,#01,#01,#0a,#01
	db #00
.l153f
	db #07,#03,#08,#00,#17,#00,#1e,#fa
	db #20,#00,#10,#00,#ff,#ff,#0a,#00
	db #00
.l1550
	db #03,#08,#e0,#01,#80,#01,#1e,#fa
	db #20,#00,#10,#00,#ff,#ff,#01,#00
	db #00
.l1561
	db #03,#08,#00,#03,#50,#04,#1e,#fa
	db #30,#00,#20,#00,#ff,#ff,#0a,#00
	db #00
.l1572
	db #14,#06,#02,#04,#22,#04,#28,#f2
	db #91,#01,#99,#01,#ff,#ff,#ff,#00
	db #00
.l1583
	db #0f,#06,#02,#03,#22,#05,#28,#f2
	db #41,#00,#89,#00,#01,#ff,#50,#01
	db #00
.l1594
	db #14,#03,#00,#88,#00,#00,#28,#d7
	db #01,#01,#81,#00,#ff,#01,#1e,#01
	db #00
.l15a5
	db #1e,#07,#88,#01,#17,#03,#19,#f2
	db #f0,#00,#f0,#00,#ff,#ff,#0a,#00
	db #00
.l15b6
	db #0a,#04,#14,#02,#2e,#02,#12,#fa
	db #0f,#00,#08,#00,#ff,#ff,#0f,#00
	db #00
.l15c7
	db #05,#05,#10,#00,#00,#02,#0a,#f6
	db #10,#00,#20,#00,#01,#01,#0a,#01
	db #00
.l15d8
	db #00
.l15d9
	db #00
.l15da
	db #00
.l15db
	db #00
.l15dc
	db #00,#00
.l15e5 equ $ + 7
.l15e4 equ $ + 6
.l15e2 equ $ + 4
.l15e0 equ $ + 2
.l15df equ $ + 1
.l15de
	db #00,#00,#00,#00,#00,#00,#00,#00
.l15e9 equ $ + 3
.l15e8 equ $ + 2
.l15e7 equ $ + 1
.l15e6
	db #00,#00,#00,#00,#00
.l15eb
	ld a,(l1606)
	and #48
	adc #38
	sla a
	sla a
	ld hl,l1609
	rl (hl)
	dec hl
	rl (hl)
	dec hl
	rl (hl)
	dec hl
	rl (hl)
	ld a,(hl)
	ret
.l1609 equ $ + 3
.l1606
	db #ff,#80,#1b,#34
.l160a
	db #03
	dw l168c,l1690,l1697
	db #02
	dw l163d,l163b,l163f
	db #02
	dw l16f8,l16fd,l1714
.l161f
	dw l1641,l1645,l1662,l1672
	dw l169e,l16b9,l16c8,l16ec
	dw l1744,l175b,l1770,l1788
	dw l17a2,l17ce
.l163b
	db #03,#fd
.l163d
	db #01,#fd
.l163f
	db #02,#fd
.l1641
	db #92,#80,#20,#87
.l1645
	db #d0,#8a,#82,#88,#01,#01,#90,#b8
	db #93,#04,#d0,#18,#d1,#18,#18,#d0
	db #18,#d1,#18,#18,#d0,#18,#d1,#92
	db #18,#02,#18,#02,#87
.l1662
	db #d2,#8a,#82,#88,#01,#01,#b8,#93
	db #04,#37,#3c,#43,#37,#3c,#43,#87
.l1672
	db #d3,#8a,#83,#88,#02,#02,#b8,#90
	db #92,#80,#20,#37,#30,#37,#08,#35
	db #08,#33,#20,#d4,#35,#20,#d3,#24
	db #20,#8e
.l168c
	db #ff,#f4,#04,#fd
.l1690
	db #ff,#f4,#fe,#04,#05,#07,#fd
.l1697
	db #fe,#04,#06,#ff,#d5,#07,#fd
.l169e
	db #d5,#8a,#83,#88,#01,#01,#b8,#92
	db #43,#1c,#4a,#04,#49,#1c,#43,#02
	db #45,#02,#46,#02,#45,#02,#46,#3c
	db #45,#40,#8e
.l16b9
	db #92,#d0,#8a,#ba,#37,#08,#37,#0c
	db #37,#04,#37,#02,#35,#06,#87
.l16c8
	db #8a,#82,#88,#01,#01,#b8,#90,#92
	db #d0,#13,#04,#d1,#13,#02,#13,#02
	db #d0,#13,#04,#d1,#13,#02,#13,#02
	db #80,#04,#13,#04,#d0,#13,#02,#11
	db #04,#11,#02,#87
.l16ec
	db #d3,#8a,#82,#88,#01,#01,#b8,#91
	db #92,#34,#40,#87
.l16f8
	db #fe,#04,#08,#0c,#fd
.l16fd
	db #fe,#04,#0b,#09,#09,#ff,#07,#fe
	db #02,#09,#ff,#00,#09,#09,#ff,#07
	db #fe,#02,#09,#ff,#00,#0d,#fd
.l1714
	db #0a,#ff,#05,#0a,#0a,#ff,#05,#0a
	db #0a,#ff,#05,#0a,#0a,#ff,#05,#0a
	db #ff,#00,#fe,#02,#0a,#ff,#fb,#fe
	db #02,#0a,#ff,#00,#fe,#02,#0a,#ff
	db #fb,#fe,#02,#0a,#ff,#00,#0a,#ff
	db #02,#0a,#ff,#03,#fe,#02,#0a,#fd
.l1744
	db #d6,#8a,#83,#88,#01,#01,#92,#b8
	db #32,#0c,#39,#08,#39,#08,#3c,#04
	db #3b,#10,#39,#08,#37,#08,#87
.l175b
	db #d0,#8a,#81,#91,#92,#bc,#21,#04
	db #21,#04,#21,#04,#21,#08,#21,#08
	db #21,#02,#21,#02,#87
.l1770
	db #d0,#8a,#82,#88,#01,#01,#90,#92
	db #b8,#0e,#04,#0e,#08,#1a,#08,#0e
	db #04,#1a,#04,#1a,#02,#1a,#02,#87
.l1788
	db #d2,#8a,#82,#88,#01,#01,#b8,#93
	db #04,#26,#2a,#2d,#26,#2a,#2d,#26
	db #2a,#2f,#26,#2b,#2f,#26,#2b,#30
	db #2f,#87
.l17a2
	db #d5,#8a,#83,#88,#01,#01,#b8,#32
	db #0c,#2f,#0c,#2d,#28,#31,#0c,#2f
	db #0c,#2d,#28,#32,#0c,#2f,#0c,#2d
	db #28,#31,#0c,#2f,#0c,#2d,#28,#26
	db #0c,#2a,#08,#2b,#04,#2d,#10,#2f
	db #18,#30,#40,#87
.l17ce
	db #d0,#8a,#bc,#92,#21,#04,#21,#04
	db #21,#04,#21,#08,#21,#08,#21,#02
	db #21,#02,#bc,#23,#04,#23,#04,#23
	db #04,#23,#08,#23,#08,#23,#02,#23
	db #02,#24,#04,#24,#08,#24,#08,#24
	db #08,#24,#08,#24,#08,#24,#04,#24
	db #08,#80,#08,#87
.l875f
	db #00

.game_name
	db "Operation Thunderbolt",0
.game_year
	db "1989",0
.game_publisher
	db "Ocean Software",0
.music_author
	db "Jonathan Dunn",0
.music_comment
	db "",0
	
	read "music_end_v1_0.asm"
